do libp0002

*- eof: safp7100.prg